% function [predictedcritvals] = funcCSF(params, xs);
% The contrast sensitivity function taken from Mannos & Sakrinson, 1974.
% of the form:
% 
% CSF(f) = a(b+cf)*exp(-((cf)^d))
% 
% Their estimated parameters were:
% CSF(f) = 2.6*(0.0192 + 0.114*f)*exp(-(0.114*f)^1.1);
%
% copyleft Ed Vul and Don MacLeod 2007
%   contact: evul@mit.edu

function [predictedcritvals] = funcCSF(params, xs);

predictedcritvals = params{1}.*(params{2} + params{3}.\xs).*exp(-(params{3}.\xs).^params{4});